home *** CD-ROM | disk | FTP | other *** search
/ Meeting Pearls 2 / Meeting Pearls Vol. II (1995)(GTI - Schatztruhe)[!].iso / Pearls / psion / src.doc / unsorted / xoff.opl < prev    next >
Text File  |  1986-12-15  |  384b  |  30 lines
  1. xoff:
  2. local c%,dat$(20)
  3. c%=0
  4. off
  5. beep 100,50
  6. print"READY"
  7. print"Press ON/CLEAR -"
  8. dat$=left$(datim$,11)+mid$(datim$,17,5)
  9. escape off
  10. do
  11. c%=c%+1
  12. if c%>3000
  13. goto missed::
  14. endif
  15. until key<>0
  16. escape on
  17. return
  18. missed::
  19. escape on
  20. cls
  21. off
  22. beep 100,400
  23. print"- ALARM missed -";
  24. beep 50,300
  25. print dat$
  26. beep 100,200
  27. beep 50,400
  28. get
  29. return
  30.